10 Q=1:H=1:E=334:POKEE,32:POKEE+1,32:POKEE+2,14:CC=54272:M3=14:X=1075:EX=33
15 PRINT"[147]","HANG ON FOR 7 SECONDS"
20 IFWW=1THEN30
25 FORT=49152TO49863:READA:POKET,A:NEXT
30 V=53248:POKEV+28,0:WW=1
35 POKEV,40:POKEV+1,190:POKEV+2,40:POKEV+3,150:POKEV+39,M3:POKEV+40,M3
40 POKEV+4,40:POKEV+5,110:POKEV+41,M3:POKE2042,194
45 POKE2040,192:POKE2041,193:POKEV+21,15
50 SYS 49152:POKE650,128
55 POKE53281,14:PRINT"[147]":POKE53281,1:POKE53280,15
60 PRINT"[144] D=DATA  [152] J=LEFT  L=RIGHT  I=UP  K=DOWN ";
65 PRINT" S=MOVE Y"
70 PRINT"[156] Z=MOVE X"
75 PRINT"[159] C=MULTI "
80 PRINT" CTRL=RVS"
85 PRINT" COM=FLIP"
90 PRINT"[129] SPA=FILL[154]"
95 PRINT"2":PRINT"1":PRINT"0"
100 PRINT" F1 SHFT   F3 EX-V   F5 AN-2   F7 DRAW  ";
105 PRINT" F2 CLR    F4 EX-H   F6 AN-3   F8 RED0 [152][146]";:POKE2023,160
110 FORT=1TO21:PRINT,"[157] ",,"      ";:NEXT
115 PRINT,"[157]   SPRITE ARTIST    BY MJ      [145][145][145]":X=1075
120 PRINT"",,,"[144]_ TO [157][157][157][157][157]RESET[152]"
125 SR=1024:X=10:Y=1:SC=Y*40+X+SR:POKESC,102:CR=160
130 Z=PEEK(197):ZZ=PEEK(653):ZX=0
135 IFZ=34THENGOSUB390
140 IFZ=42THENGOSUB405
145 IFZ=37THENGOSUB420
150 IFZ=33THENGOSUB435
155 IFZ=60THENGOSUB510
160 IFZ=20THEN360
165 IFZ=57THEN10
170 IFZ=18THEN260
175 IFZ=13THEN205
180 IFZ=12THEN545
185 IFZ=56THENQ=1
190 IFZ=59THENQ=2
195 IFZ=8THENQ=3
200 GOTO130
205 PRINT"[147] PRESS NUMBER (0 - 2) OF SPRITE":POKE198,0
210 GETA$:IFA$=""THEN210
215 PRINT" - [146] (DOWN),  + [146] (UP) OR  RETURN [146] TO EXIT"
220 Y=1:GETB$:IFB$="+"THENY=-1:GOTO240
225 IFB$=CHR$(13)THEN55
230 IFVAL(B$)>0ANDVAL(B$)<4THENA$=B$:GOTO220
235 IFB$<>"-"THEN220
240 X=VAL(A$):IFX=>2THENX=5
245 IFX=1THENX=3
250 IFX=0THENX=1
255 POKEV+X,PEEK(V+X)+Y:GOTO220
260 POKE198,0:INPUT"[147]NAME OF SPRITE";N$
265 PRINT"DATA TO S[146]CREEN, P[146]RINTER, OR D[146]ISK"
270 GETP$:IFP$="S"THEN315
275 IFP$="D"THEN330
280 IFP$<>"P"THEN270
285 OPEN3,4:CMD3
290 PRINT,,,,N$:PRINT:PRINT
295 FORT=12288 TO 12350 STEP10
300 FORI=0TO9
305 PRINTPEEK(T+I)",";:NEXT:PRINT:PRINT:NEXT
310 PRINT#3:CLOSE3:GOTO55
315 PRINT"[147]":FORT=12288 TO 12350 STEP 3
320 PRINT,PEEK(T),PEEK(T+1),PEEK(T+2):NEXT
325 END
330 INPUT"S[146]AVE OR L[146]OAD";S$
335 IFS$="L"THEN355
340 OPEN1,8,1,N$
345 SYS65418:POKE780,251:POKE251,0:POKE252,48:POKE781,192:POKE782,48:SYS65496
350 CLOSE1:GOTO10
355 SYS65418:LOADN$,8,1
360 POKE198,0
365 EX=32:H=2:V=53248:INPUT"[147]MULTI COLOR 1 ( *)";M1
370 INPUT"MULTI COLOR 2 (**)";M2
375 INPUT"SPRITE COLOR  (* )";M3
380 POKEV+28,7:POKEV+37,M1:POKEV+38,M2
385 GOTO35
390 X=X-H:IFX<10THENX=EX
395 IFZZ=1THENX=X-H:Z=60:RETURN
400 GOSUB450:RETURN
405 IFZZ=1THENZ=60:RETURN
410 X=X+H:IFX>EXTHENX=10
415 GOSUB450:RETURN
420 Y=Y+1:IFY>21THENY=1
425 IFZZ=1THENX=X-H:Z=60:RETURN
430 GOSUB450:RETURN
435 Y=Y-1:IFY<1THENY=21
440 IFZZ=1THENX=X-H:Z=60:RETURN
445 GOSUB450:RETURN
450 IFH=2THEN470
455 POKESC,PEEK(E):SC=Y*40+X+SR
460 POKEE,PEEK(SC):POKESC,102
465 CR=160:RETURN
470 CV=SC+CC
475 POKESC,PEEK(E):POKESC+1,PEEK(E+1)
480 POKECV,PEEK(E+2):POKECV+1,PEEK(E+2)
485 SC=Y*40+X+SR
490 POKEE,PEEK(SC):POKEE+1,PEEK(SC+1)
495 POKEE+2,PEEK(SC+CC)
500 POKESC,102:POKESC+1,102
505 RETURN
510 IFH=2THEN560
515 IFZZ=1THEN530
520 IFPEEK(E)=160THENCR=32
525 IFPEEK(E)<>160THENCR=160
530 POKESC,CR
535 POKEE,CR:X=X+1:IFX>33THENX=10
540 GOSUB450:RETURN
545 PRINT"[147] RETURN [146] TO EXIT"
550 POKEV,(PEEK(V)+1)AND255:IFPEEK(197)<>1THEN550
555 GOTO35
560 CR=160:CS=224:CV=SC+CC
565 IFZZ=1THEN575
570 IFPEEK(E)<>32THENCR=32:POKESC,CR:POKESC+1,CR:R=32:GOTO590
575 IFQ=1THENR=CR:CR=CS:POKESC,CR:POKESC+1,R:POKECV,M1:POKECV+1,M1:POKEE+2,M1
580 IFQ=2THENR=CS:POKESC,CR:POKESC+1,R:POKECV,M3:POKECV+1,M3:POKEE+2,M3
585 IFQ=3THENR=CR:POKESC,CR:POKESC+1,CR:POKECV,M2:POKECV+1,M2:POKEE+2,M2
590 POKEE,CR:POKEE+1,R:X=X+2:IFX>32THENX=10
595 GOSUB470:RETURN
600 DATA 120, 169, 13, 141, 20, 3, 169, 192, 141, 21, 3, 88, 96, 165, 80
605 DATA  201, 48, 208, 73, 169, 12, 133, 80, 173, 141, 2, 201, 1, 240, 32
610 DATA  234, 165, 197, 201, 3, 208, 3, 32, 141, 192, 201, 6, 208, 3, 32
615 DATA  118, 192, 201, 4, 208, 3, 32, 117, 193, 201, 5, 240, 48, 76, 1
620 DATA  194, 234, 165, 197, 201, 4, 208, 3, 32, 147, 193, 201, 6, 208, 3
625 DATA  32, 51, 193, 201, 5, 208, 3, 32, 97, 192, 201, 3, 208, 3, 32
630 DATA  182, 194, 230, 80, 76, 49, 234, 173, 29, 208, 73, 1, 141, 29, 208
635 DATA  96, 173, 23, 208, 73, 1, 141, 23, 208, 76, 49, 234, 234, 173, 248
640 DATA  7, 201, 192, 240, 6, 206, 248, 7, 76, 134, 192, 238, 248, 7, 169
645 DATA  32, 133, 80, 96, 234, 234, 162, 0, 160, 0, 132, 253, 169, 50, 133
650 DATA  251, 169, 4, 133, 252, 177, 251, 201, 160, 208, 4, 56, 76, 166, 192
655 DATA  24, 62, 0, 48, 230, 253, 165, 253, 201, 8, 208, 9, 169, 0, 133
660 DATA  253, 232, 224, 63, 240, 23, 200, 192, 24, 208, 220, 24, 165, 251,105
665 DATA  40, 133, 251, 165, 252, 105, 0, 133, 252, 160, 0, 76, 155, 192, 96
670 DATA  162, 64, 189, 255, 47, 157, 191, 48, 202, 208, 247, 162, 0, 134, 253
675 DATA  160, 0, 169, 50, 133, 251, 169, 4, 133, 252, 189, 192, 48, 41, 128
680 DATA  240, 21, 169, 160, 145, 251, 62, 192, 48, 200, 32, 12, 193, 224, 63
685 DATA  240, 20, 234, 234, 234, 76, 235, 192, 169, 32, 76, 244, 192, 230, 253
690 DATA  165, 253, 201, 8, 240, 1, 96, 169, 0, 133, 253, 232, 234, 192, 24
695 DATA  240, 4, 234, 76, 20, 193, 160, 0, 24, 165, 251, 105, 40, 133, 251
700 DATA  165, 252, 105, 0, 133, 252, 96, 173, 248, 7, 201, 192, 240, 6, 206
705 DATA  248, 7, 76, 70, 193, 238, 248, 7, 238, 248, 7, 169, 32, 133, 80
710 DATA  96, 169, 0, 133, 251, 169, 4, 133, 252, 160, 0, 177, 251, 201, 32
715 DATA  208, 21, 145, 251, 200, 208, 245, 230, 252, 165, 252, 201, 7, 240, 3
720 DATA  76, 85, 193, 192, 224, 208, 230, 96, 169, 32, 76, 91, 193, 162, 64
725 DATA  189, 127, 48, 157, 191, 48, 189, 63, 48, 157, 127, 48, 189, 255, 47
730 DATA  157, 63, 48, 189, 191, 48, 157, 255, 47, 202, 208, 229, 96, 162, 21
735 DATA  169, 49, 133, 251, 169, 4, 133, 252, 160, 24, 169, 32, 145, 251, 136
740 DATA  208, 251, 202, 240, 14, 24, 165, 251, 105, 40, 133, 251, 144, 235
745 DATA  230, 252, 76, 157, 193, 96
750 DATA  24, 162, 0, 160, 8, 62, 0, 48, 126, 2, 49, 136, 208, 247
755 DATA  232, 232, 232, 224, 63, 208, 238, 162, 0, 160, 8, 62, 2, 48
760 DATA  126, 0, 49, 136, 208, 247, 232, 232, 232, 224, 63, 208, 238, 162
765 DATA  0, 160, 8, 62, 1, 48, 126, 1, 49, 136, 208, 247, 232, 232
770 DATA  232, 224, 63, 208, 238, 162, 64, 189, 255, 48, 157, 255, 47, 202
775 DATA 208, 247, 96, 173, 141, 2, 201, 4, 208, 3, 76, 194, 194, 201
780 DATA 2, 208, 3, 32, 21, 194, 76, 92, 192, 162, 64, 189, 255, 47
785 DATA 157, 63, 49, 202, 208, 247, 169, 63, 133, 34, 169, 49, 133, 35
790 DATA 162, 63, 160, 3, 177, 34, 157, 255, 47, 202, 240, 12, 136, 208
795 DATA 245, 230, 34, 230, 34, 230, 34, 76, 42, 194, 96, 162, 21, 169
800 DATA 50, 133, 34, 133, 36, 169, 216, 133, 37, 169, 4, 133, 35, 160
805 DATA 0, 177, 34, 201, 160, 240, 10, 200, 177, 34, 201, 160, 240, 36
810 DATA 76, 145, 194, 200, 177, 34, 201, 160, 240, 15, 169, 224, 145, 34
815 DATA 173, 39, 208, 145, 36, 136, 145, 36, 76, 146, 194, 173, 38, 208
820 DATA 145, 36, 136, 145, 36, 76, 146, 194, 136, 169, 224, 145, 34, 173
825 DATA 37, 208, 145, 36, 200, 145, 36, 136, 200, 200, 192, 24, 208, 187
830 DATA 202, 240, 26, 234, 234, 234, 24, 165, 36, 105, 40, 133, 36, 24
835 DATA 165, 34, 105, 40, 133, 34, 144, 163, 230, 35, 230, 37, 76, 81
840 DATA 194, 96, 32, 210, 192, 173, 28, 208, 240, 3, 32, 65, 194, 96
845 DATA 32, 184, 193, 76, 92, 192